*This file creates descriptive figure of industry skills A.2. 

*Input data on industry skills. Based on Ciccone and Papaioannou (2009). 
use "$path/ind_edu.dta", replace
 
tostring digt2, replace
 
foreach x in 39 38 37 36 35 34 33 32 31 30 28 27 26 25 24  23 22 21 20 15  {
gen isic`x'=hay80
mean  isic`x' if digt2=="`x'"
estimate store us`x'
}

label var isic15 "Other mineral quarrying (15)"
label var isic20 "Food manufacturing (20)"
label var isic21 "Beverage industries (21)"
label var isic22 "Tobacco manufactures (22)"
label var isic23 "Manufacture of textiles (23)"
label var isic24 "Manufacture of footwear and apparel (24)"
label var isic25 "Wood and cork (25)"
label var isic26 "Manufacture of furniture (26)"
label var isic27 "Paper and paper products (27)"
label var isic28 "Printing, publishing (28)"
label var isic30 "Manufacture of rubber products (30)"
label var isic31 "Manufacture of chemicals (31)"
label var isic32 "Petroleum and asphalt products (32)"
label var isic32 "Petroleum and asphalt products (32)"
label var isic33 "Non-metallic mineral products (33)"
label var isic34 "Basic metal industries (34)"
label var isic35 "Metal products (35)"
label var isic36 "Machinery (36)"
label var isic37 "Electrical machinery (37)"
label var isic38 "Transport equipment (38)"
label var isic39 "Miscellaneous equipment (39)"
  
coefplot us*   , nokey name(kuva3, replace)  mcolor(navy)   order(isic15 isic20 isic21 isic22 isic23 isic24 isic25 isic26 isic27 isic28 isic29 isic30 isic31 isic32 isic33 isic34 isic35 isic36 isic37 isic38 isic39)  ///
xline(  11.674    )    graphregion(lcolor(white) fcolor(white))     title(All industries)  

graph export "$graphs/education_isic2_all.eps", replace 

 
tempfile education
save `education' 


********
*Industries with war reparations
********

clear all
*Input data on industry skills. Based on Ciccone and Papaioannou (2009). 
use "$path/ind_edu.dta", replace

tostring digt2, replace 
foreach x in 39 38 37 36 35 34 33 32 31 27 25 15 {
	gen isic`x'=hay80
mean  isic`x' if digt2=="`x'"
estimate store us`x'
}

label var isic15 "Other mineral quarrying (15)"
label var isic25 "Wood and cork (25)"
label var isic27 "Paper and paper products (27)"
label var isic31 "Manufacture of chemicals (31)"
label var isic32 "Petroleum and asphalt products (32)"
label var isic33 "Non-metallic mineral products (33)"
label var isic34 "Basic metal industries (34)"
label var isic35 "Metal products (35)"
label var isic36 "Machinery (36)"
label var isic37 "Electrical machinery (37)"
label var isic38 "Transport equipment (38)"
label var isic39 "Miscellaneous equipment (39)"

coefplot us*   , nokey name(kuva3, replace)  mcolor(navy)   order(isic15 isic25 isic27 isic31 isic32 isic33 isic34 isic35 isic36 isic37 isic38 isic39)  ///
xline(  11.674    )    graphregion(lcolor(white) fcolor(white))      title(War reparation industries)      
graph export "$graphs/education_isic2b.eps", replace 



